home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / ALPHA.PLOT.SHK / ALPHA.PLOT / HI-LO PLOT.bas < prev    next >
BASIC Source File  |  2000-01-01  |  450b  |  7 lines
  1. 50  PRINT  CHR$(21): IF  PEEK(64435) = 6  AND  PEEK(64448) = 0  THEN  TEXT : HOME : PRINT "SORRY, HI-LO PLOT WON'T WORK ON THE     APPLE IIc. IT DOES WORK ON ALL OTHER    VERSIONS OF APPLE II.": END 
  2. 60 SH = 3500
  3. 70 ST = 24577: REM $6001
  4. 80  POKE 230,32
  5. 85  PRINT "<CTRL-D>BLOAD ALPHA CODE,A$FB3"
  6. 90  POKE 232,SH - INT(SH/256) *256: POKE 233, INT(SH/256): POKE 103,ST - INT(ST/256) *256: POKE 104, INT(ST/256): POKE ST -1,0
  7. 100  PRINT "<CTRL-D>RUN ^"